unit FormBaseLogin;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,

  FormUtils, FormBase, FormDevExpress, wbDialog, OptionsVar, AppConst,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, dxSkinsCore, dxSkinscxPCPainter, dxLayoutContainer,
  dxLayoutControl, Vcl.Menus, dxLayoutControlAdapters, Vcl.StdCtrls, cxButtons,
  dxLayoutcxEditAdapters, cxContainer, cxEdit, cxTextEdit,
  dxSkinsDefaultPainters;

type
  TfmBaseLogin = class(TfmDevExpress)
    btnLogin: TcxButton;
    liLogin: TdxLayoutItem;
    btnCancel: TcxButton;
    liCancel: TdxLayoutItem;
    lgButtons: TdxLayoutGroup;
    edPassword: TcxTextEdit;
    liWindowItem1: TdxLayoutItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const GuestPassword = '123';

function IsLogged(APassword: string): Boolean;

var
  fmBaseLogin: TfmBaseLogin;

implementation

function IsLogged(APassword: string): Boolean;
begin
  Result := APassword = GuestPassword;
end;

{$R *.dfm}

end.
